Atari Mega Archive 2

home *** CD-ROM | disk | FTP | other *** search

/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / comand.xmo < prev next >

Wrap

Text File | 1995-04-22 | 6KB | 1 lines

10 REM ááááááגנצááבנלϕβ∈Σσ≥áááááááááá¢11 REM By Tom McComb [CIS 73147,3171], (TCS 1023), Sysop @orner Pub BBS 718-351-2399¢12 REM FEB. 1986 VON/OFF, COLOR DOS BY TOM MCCOMB, BASICON/OFF BY BILL WILKINSON OF OSS.¢14 REM áסáרáאáכáחáבááגáנáלáĲáחáמá¢15 GOSUB 20000:REM INIT ROUTINE¢20 TRAP 20:CLOSE #1:GRAPHICS 1:POKE 710,48:POKE 712,48:POKE 709,84:POKE 708,6:POKE 711,68:POKE 752,1¢28 ? #6;" DOS.COMϕβ∈Σσ≥":? #6;""¢30 ? #6;"":? #6;" ≡⌡≤Φ"¢31 ? #6;"":? #6;"":? #6;"Option for COLOR.COM"¢33 ? #6;"":? #6;"":? #6;"Select for Γβ≤Θπ«π∩ϕ"¢35 ? #6;"":? #6;"":? #6;"Start for VERIFY.COM"¢37 ? " DOS.COMmander by Tom McComb"¢39 ? " CIS 73147,3171 TCS 1023 "¢40 ? " @orner Pub BBS 718-351-2399"¢41 ? "áááספדצצáºזדכסºáהנפáגנברלדמקĲקחנמááá"¢50 X=PEEK(53279):IF X=3 THEN GOTO 70¢60 IF X=5 THEN GOTO 6000¢62 IF X=6 THEN GOTO 2000¢63 IF PEEK(732)=17 THEN GOTO 10000¢64 GOTO 50¢69 REM בנכנפáגנצáבנלáהחכדáלĲידפ¢70 GRAPHICS 0:POKE 752,1¢80 ? "Use נסקחנמ to choose color register"¢90 ? " Use צדכדבק to choose colors"¢95 ? " Use צקĲפק to write .COM file to disk."¢100 POSITION 15,2:? "áאĲביופנרמגá"¢160 FILE$=" "¢200 GOSUB CONSOLE¢210 IF KEY=5 THEN GOSUB CHANGE¢220 IF KEY=6 THEN GOSUB WRITE¢490 FOR X=1 TO 30:NEXT X¢499 GOTO 200¢500 KEY=PEEK(53279):IF KEY=3 THEN REG=REG+1:IF REG>3 THEN REG=1¢510 IF REG=1 THEN POSITION 15,2:? "áאĲביופנרמגá"¢520 IF REG=2 THEN POSITION 15,2:? "áכדקקדפחמוáá"¢530 IF REG=3 THEN POSITION 15,2:? "ááאנפגדפצááá"¢540 RETURN ¢600 LUME=LUME+2:IF LUME>14 THEN LUME=0:HUE=HUE+1:IF HUE>15 THEN HUE=0¢620 VALUE=(HUE*16)+LUME¢630 IF REG=3 THEN POKE 712,VALUE¢640 IF REG=2 THEN POKE 709,VALUE¢650 IF REG=1 THEN POKE 710,VALUE¢699 RETURN ¢700 ? "}":POSITION 2,5:? "SUGGESTED filename: RED or GREEN etc."¢710 ? "INCLUDE FILESPEC....i.e D2:"¢720 ? "DO NOT INCLUDE EXTENDER, .COM WILL"¢730 ? "BE USED. INPUT filename: ";:INPUT FILE$¢740 IF FILE$="" THEN GOTO 200¢750 IF LEN(FILE$)>11 THEN GOTO 700¢760 IF FILE$(1,1)<>"D" THEN GOTO 700¢770 IF FILE$(2,2)<>":" AND FILE$(3,3)<>":" THEN GOTO 700¢780 ? "ááחמצדפקáקĲפודקáגחציáĲמגáספדצצáפדקרפמá"¢790 INPUT GO$¢795 FILE$(LEN(FILE$)+1,LEN(FILE$)+4)=".COM"¢799 TRAP MENU¢800 OPEN #1,8,0,FILE$¢810 PUT #1,255:PUT #1,255:PUT #1,0:PUT #1,6:PUT #1,18:PUT #1,6:PUT #1,169¢820 PUT #1,PEEK(710):REM BACKGROUND¢830 PUT #1,141:PUT #1,198:PUT #1,2:PUT #1,169¢840 PUT #1,PEEK(709):REM LETTERS¢850 PUT #1,141:PUT #1,197:PUT #1,2:PUT #1,169¢860 PUT #1,PEEK(712):REM BORDERS¢870 PUT #1,141:PUT #1,200:PUT #1,2:PUT #1,76:PUT #1,121:PUT #1,25¢880 PUT #1,0:PUT #1,224:PUT #1,2:PUT #1,225:PUT #1,2:PUT #1,0:PUT #1,6¢900 CLOSE #1¢1000 ? "ááááááבנלסכדקדגáááááá"¢1010 FOR X=1 TO 200:NEXT X¢1015 GOSUB DIRECTORY¢1020 GOTO MENU¢1999 REM שדפחהךáנמ»נההáבנלáהחכדáלĲידפ¢2000 GRAPHICS 0:POKE 710,80:? "INSERT DISK TO RECIEVE THE FILES:":? " VON.COM AND VOFF.COM"¢2001 TRAP MENU:POKE 752,1¢2010 ? " HIT RETURN WHEN READY";¢2020 INPUT X$:POKE 712,64¢2100 LINE=3000:GOSUB 5000¢2200 LINE=4000:GOSUB 5000¢2255 GOSUB DIRECTORY¢2300 GOTO MENU¢3000 DATA 255,255,0,6,08,6,169,87,141,121,07,76,121,25,0,224,2,225,2,0,6¢4000 DATA 255,255,0,6,08,6,169,80,141,121,07,76,121,25,0,224,2,225,2,0,6¢5000 RESTORE LINE:IF LINE=3000 THEN NAME$="D:VON.COM"¢5100 IF LINE=4000 THEN NAME$="D:VOFF.COM"¢5200 OPEN #1,8,0,NAME$¢5300 FOR CNT=1 TO 21:READ BYTE¢5400 PUT #1,BYTE:NEXT CNT¢5500 CLOSE #1¢5600 RETURN ¢6000 REM אĲצחבáנ»נההáבנלáהחכדáלĲידפ¢6001 TRAP MENU¢6010 GRAPHICS 0:POKE 710,96:? "INSERT DISK TO RECIEVE THE BASICON.COM":? "AND BASICOFF.COM FILES IN DRIVE #1."¢6020 ? "HIT RETURN WHEN READY....";:POKE 752,1¢6030 INPUT X$:POKE 712,66¢6100 LINE=8000:GOSUB 7000¢6200 LINE=9000:GOSUB 7000¢6255 GOSUB DIRECTORY¢6300 GOTO MENU¢7000 RESTORE LINE:IF LINE=8000 THEN NAME$="D:BASICOFF.COM"¢7100 IF LINE=9000 THEN NAME$="D:BASICON.COM"¢7200 OPEN #1,8,0,NAME$¢7300 FOR CNT=1 TO 57:READ BYTE¢7400 PUT #1,BYTE:NEXT CNT¢7500 CLOSE #1¢7600 RETURN ¢8100 DATA 255,255,0,4,44,4,173,1,211,9,2,141,1¢8300 DATA 211,169,1,141,248,3,169,12,32,24,4¢8400 DATA 169,192,133,106,169,3,141,66,3,169,42¢8600 DATA 141,68,3,169,4,141,69,3,162,0,76,86¢8700 DATA 228,69,58,0,226,2,227,2,0,4¢9100 DATA 255,255,0,4,44,4,173,1,211,41,253,141¢9300 DATA 1,211,169,0,141,248,3,169,12,32,24,4¢9400 DATA 169,160,133,106,169,3,141,66,3,169,42¢9500 DATA 141,68,3,169,4,141,69,3,162,0,76,86¢9700 DATA 228,69,58,0,226,2,227,2,0,4¢10000 GRAPHICS 0:POKE 732,0:POKE 710,194¢10010 ? "²This program will write several files for you. All of the files are binary"¢10020 ? "load files. The COLOR section allows you to create as many different customcolor DOS screens as you like"¢10030 ? "The BASIC section will write two filesto drive one: BASICON.COMBASICOFF.COM"¢10040 ? "When binary loaded from DOS on an XL or XE machine, they will toggle the Built In Basic."¢10050 ? "The VERIFY section will write two files to drive one also: VON.COMVOFF.COM"¢10060 ? "When binary loaded from DOS 2.0 or 2.5they will toggle the WRITE VERIFY function on and off."¢10070 ? "EACH OF THESE .COM FILES ARE 1 SECTOR LONG. BASICON/OFF WAS ORGINALLY WRITTEN BY BILL WILKINSON";¢10080 ? " OF OSS."¢10090 ? " ááááááזחקáפדקרפמáהנפáלדמרááááá";¢10100 INPUT X$¢10150 TRAP MENU¢10200 GOTO MENU¢19999 REM INITIALIZATION¢20000 WRITE=700:CONSOLE=500:CHANGE=600:COL1=PEEK(710):COL2=PEEK(709):COL3=PEEK(712):DIM FILE$(15):DIM GO$(3):REG=1¢21000 DIM NAME$(20):DIM X$(5):MENU=20:DIRECTORY=30000¢22000 RETURN ¢30000 REM áגחפדבקנפךá¢30050 TRAP MENU¢30100 CLOSE #1:OPEN #1,6,0,"D:*.*"¢30200 INPUT #1,NAME$:TRAP 60¢30300 ? " ";NAME$¢30400 IF NAME$(10,16)="SECTORS" THEN 30700¢30500 GOTO 30200¢30600 ? " ";NAME$¢30700 CLOSE #1:FOR X=1 TO 350:NEXT X¢30800 RETURN ¢qqqqqqqqqqqqqqq